BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/F/FilmPro.cpt/Memos/background_2607.txt

Text File | 1988-04-17 | 16.1 KB | 745 lines

-- background: 2607 from stack: in
-- bmap block id: 5234
-- flags: 4000
-- background id: 0
-- name: Prod. Notes Background
----- HyperTalk script -----
on openstack
  set lockscreen to true
  hide background field "hidden keywords"

  domenu "last"
  set lockscreen to false
end openstack

on closestack
  if the freesize of this stack > 0.15 * the size of this stack then
    set cursor to 4
    domenu "compact stack"
  end if
end closestack




-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=253 top=25 right=58 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Keywords
----- HyperTalk script -----
on mouseUp
  play "harpsichord"
  show background field "hidden keywords"
  answer "New Keywords will replace old ones" with "Cancel" or "Okay"
  if it is "okay" then
    ask "Enter Keywords for Memo"
    put it into background field "hidden keywords"
  end if
  hide background field "hidden keywords"


end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=310 top=28 right=57 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: find
----- HyperTalk script -----
on mouseUp
  play harpsichord
  domenu "find..."
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=355 top=25 right=56 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  play "harpsichord"
  answer "Sort all cards according to:" with "Client" or  "Job #" or "Date"
  if it is "Client" then
    sort by first word of bkgnd field "client"
  end if


  if it is "Job #" then
    sort numeric by first word of bkgnd field "Job #"
  end if

  if it is "Date" then
    sort  dateTime by first word of bkgnd field "date"
  end if




end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=406 top=30 right=54 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial
----- HyperTalk script -----
on mouseUp

  dial line 1 of bkgnd field "phone" with modem "ATDT"





end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=247 top=315 right=334 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect scroll right fast to black
  visual effect scroll right fast
  go to prev card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=273 top=315 right=335 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect scroll left fast to black
  visual effect scroll left fast
  go to next card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=212 top=28 right=56 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Button Help
----- HyperTalk script -----

on mouseup
  push this card
  set cursor to 4
  visual effect barn door open
  go to stack "FilmPro Help"
end mouseup



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=451 top=25 right=58 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  play harpsichord
  answer "Proceed with Printing?" with "This Card" or "This Stack" or "Cancel"
  if it is "This Card" then domenu "Print card"
  else if it is "This Stack" then domenu "Print stack..."
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=217 right=257 bottom=41
-- title width / last selected line: 65535
-- icon id / first selected line: -15743 / 49793
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Crews Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack "Crews"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=262 right=295 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 9761 / 9761
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Locations Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack "Locations"
end mouseUp




-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=59 right=96 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 2002 / 2002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Client Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack Clients
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=47 top=301 right=331 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: return
----- HyperTalk script -----
on mouseUp
  visual effect wipe left fast to black
  visual effect wipe right fast
  pop card
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=9 top=183 right=213 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: memos
----- HyperTalk script -----
on mouseUp
  beep
  answer "You are already in the Memo Stack."
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=140 right=177 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 18814 / 18814
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Call Sheets
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve to white
  visual effect dissolve
  go to last card in stack call sheets
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=104 right=134 bottom=38
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: jobs stack button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to last card in stack Job File
end mouseUp



-- part 20 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=208 top=24 right=58 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hidden keywords


-- part 23 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=100 top=292 right=311 bottom=207
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Memo
----- HyperTalk script -----
on mouseUp
  play harpsichord
  answer "Delete this entire Memo Card?" with "Cancel" or "Yes"
  visual effect venetian blinds slow to gray
  visual effect dissolve
  if it is "Yes" then domenu "Delete Card"
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=220 top=292 right=311 bottom=326
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Create Memo
----- HyperTalk script -----
on mouseUp
  play harpsichord
  visual effect scroll left
  answer "Same Job No. as this one?" with "Cancel" or "No" or "Yes"
  put it into holder
  if holder is "yes" then
    put background field "job #"  into temp
    put background field "client" into temp2

    put bkgnd field "title" into temp4
    put bkgnd field "phone" into temp5
    domenu "new Card"
    put the short date into background field date
    put the time into background field time
    put temp into background field "job #"
    put temp2 into bkgnd field "client"

    put temp4 into bkgnd field "title"
    put temp5 into bkgnd field "phone"
    get the loc of bkgnd field "Subject"
    click at it
  end if


  if it is "cancel" then
    exit mouseup
  end if

  if holder is "No" then
    domenu "new Card"
    ask "Enter Job No."
    put it into holder2
    if holder2 is empty then
      exit mouseup
    end if

    set cursor to 4
    push this card
    set lockscreen to true
    go to stack "job file"
    find holder2 in background field "job #"
    if the result is empty then
      put line 2 of bkgnd field "client" into temp

      put bkgnd field "title" into temp3
      put bkgnd field "phone" into temp4
      pop card
      put it into bkgnd field "job #"
      put temp into bkgnd field "client"

      put temp3 into bkgnd field "title"
      put temp4 into bkgnd field "phone"
      put the short date into background field date
      put the time into background field time
      set lockscreen to false
      get the loc of bkgnd field "subject"
      click at it
    else if the result is not empty then
      beep
      answer "Can't find that Job File. Start new one?" with "Cancel" or "Okay"

      if it is "cancel" then
        pop card
        put holder2 into bkgnd field "job #"
        exit mouseup
      end if

      if it is "okay" then domenu "new card"
      put holder2 into bkgnd field "job #"
      set lockscreen to false
      get the loc of bkgnd field "job #"
      click at it
      tabkey

    end if
  end if
end mouseUp



-- part 25 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=110 top=68 right=85 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Job #


-- part 26 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=314 top=68 right=87 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title


-- part 28 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=110 top=86 right=103 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Client


-- part 32 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=341 top=88 right=104 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone


-- part 29 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=66 top=122 right=139 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Subject


-- part 30 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=296 top=122 right=139 bottom=393
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date


-- part 31 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=400 top=122 right=139 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time


-- part 22 (field)
-- low flags: 00
-- high flags: 6004
-- rect: left=66 top=141 right=291 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Notes


-- part 34 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=337 top=292 right=310 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Memo
----- HyperTalk script -----
on mouseUp
  play harpsichord
  ask "Address Memo To:"

  if it is empty then
    exit mouseup
  end if

  put it into temp
  set lockscreen to true
  set cursor to 4
  put "PRODUCTION MEMO" into holder
  put  bkgnd field "date"  into holder2
  put bkgnd field "time" into holder3
  put bkgnd field "Client" into holder4
  put bkgnd field "subject" into holder5
  put bkgnd field "notes" into holder6
  show bkgnd field "hidden memo"
  put holder into line 4 of bkgnd field id 35
  put space & space & space & space & space after word 2 in line 4 of bkgnd field id 35
  put "TO:" after word 5 in line 4 of bkgnd field id 35
  put space  after word 6 in line 4 of bkgnd field id 35
  put temp after word 8 in line 4 of bkgnd field id 35
  put holder2 into line 6 of bkgnd field id 35
  put space & space & space & space after first word in line 6 of bkgnd field id 35
  put holder3 after word 4 in line 6 of bkgnd field id 35
  put "CLIENT:  " into line 7 of bkgnd field id 35
  put space after first word in line 7 of bkgnd field id 35
  put holder4 after second word in line 7 of bkgnd field id 35
  put "SUBJECT:" into line 8 of bkgnd field id 35
  put space & space after first word of line 8 of bkgnd field id 35
  put holder5 after word 3 of line 8 of bkgnd field id 35
  put holder6 into line 10 of bkgnd field id 35
  domenu "print card"
  hide bkgnd field id 35
  put empty into bkgnd field id 35
  set lockscreen to false


end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=300 right=334 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Application
----- HyperTalk script -----
on mouseUp
  play harpsichord
  ask "Which application would you like to open?"
  if it is not empty then
    suspend
    open it
  else if it is empty then
    exit mouseup
  end if

end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=1 top=23 right=55 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: filmpro
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve to white
  visual effect dissolve
  go to card id 2844 of stack "FilmPro "
end mouseUp




-- part 35 (field)
-- low flags: 80
-- high flags: 2001
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hidden memo
----- HyperTalk script -----
on MouseWithin

  hide bkgnd field "hidden memo"

end MouseWithin